home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / et / et3_0-a1.lha / et3 / src / AccessMem.C next >
C/C++ Source or Header  |  1992-07-17  |  3KB  |  139 lines
  1. #ifdef __GNUG__
  2. #pragma implementation
  3. #endif
  4.  
  5. #include "AccessMem.h"
  6.  
  7. #include "Class.h"
  8. #include "Exception.h"
  9.  
  10. //---- AccessMembers ---------------------------------------------------------
  11.  
  12. AccessMembers::AccessMembers()
  13. {
  14. }
  15.  
  16. AccessMembers::~AccessMembers()
  17. {
  18. }
  19.  
  20. void AccessMembers::ClassName(char*)
  21. {
  22. }
  23.  
  24. void AccessMembers::Member(char *, int, int, int, Class*, bool, bool)
  25. {
  26. }
  27.  
  28. void AccessMembers::ScanMembers(Object *o, int first, va_list ap, int n)
  29. {
  30.     int len, tag, size;
  31.     char *name;
  32.     Class *cl;
  33.     u_long th= (u_long) o, offset;
  34.     bool global= FALSE, lenglobal= FALSE;
  35.     
  36.     if (o && o->IsA())
  37.     size= o->IsA()->Size();
  38.     else
  39.     size= 999999; // very large (good idea ???)
  40.     
  41.     for (int i= 0; i < n; i++) {
  42.     if (i == 0)
  43.         tag= first;
  44.     else
  45.         tag= va_arg(ap, int);
  46.     if (tag == T_SIM)
  47.         tag= 0;
  48.     name= va_arg(ap, char*);
  49.     cl= va_arg(ap, Class*);
  50.     offset= va_arg(ap, u_long);
  51.     
  52.     if (offset >= th && offset < th+size) {
  53.         offset-= th;
  54.         global= FALSE;
  55.     } else
  56.         global= TRUE;
  57.  
  58.     if (tag & T_VEC) {
  59.         len= (int)va_arg(ap, u_long);
  60.         if (len >= th && len < th+size) {
  61.         len-= (int)th;
  62.         lenglobal= FALSE;
  63.         } else
  64.         lenglobal= TRUE;
  65.     } else if (tag & T_ARR)
  66.         len= va_arg(ap, int);
  67.     else 
  68.         len= -1;
  69.  
  70.     Member(name, (int) offset, len, tag, cl, global, lenglobal);
  71.     }
  72.     va_end(ap);
  73. }
  74.  
  75. //---- AccessObjPtrs ----------------------------------------------------------
  76.  
  77. AccessObjPtrs::AccessObjPtrs(Object *op)
  78. { 
  79.     inObject= op; 
  80. }
  81.     
  82. void AccessObjPtrs::ForObject(Object *op)
  83. { 
  84.     inObject= op; 
  85. }
  86.  
  87. void AccessObjPtrs::Member(char *name, int offset, int offsetOrLen, int type,
  88.                     Class *cl, bool global, bool lenglobal)
  89. {
  90.     if (cl && cl->TestFlag(eClassObject)) {
  91.     if ((type & T_PTR2) && (type & (T_ARR | T_VEC))) {
  92.         Object **ov;
  93.         int l= 0;
  94.  
  95.         if (type & T_ARR)
  96.         l= offsetOrLen;
  97.         else if (type & T_VEC) { 
  98.         void *ll;
  99.         if (lenglobal)
  100.             ll= (void*) offsetOrLen;
  101.         else
  102.             ll= (void*) ((u_long) inObject + (u_long) offsetOrLen);
  103.             
  104.         TRY {
  105.             l= *((int*)ll);
  106.         } CATCH(ex) {
  107.             l= -1;
  108.         } ENDTRY;
  109.         }
  110.  
  111.         if (global)
  112.         ov= *(Object***) offset;
  113.         else
  114.         ov= *(Object***)((u_long) inObject + (u_long) offset);
  115.  
  116.         if (ov && l > 0)
  117.         for (int i= 0; i < l; i++)
  118.             if (ov[i]) 
  119.             FoundPointer(ov[i], name, i, FALSE);
  120.  
  121.     } else if (type & T_PTR) {
  122.         if (global)
  123.         FoundPointer(*(Object**)((u_long) offset), name, -1, TRUE);
  124.         else
  125.         FoundPointer(*(Object**)((u_long) inObject + (u_long) offset), name, -1, FALSE);
  126.     } else if (type == 0) {     // inline Object
  127.         if (global)
  128.         FoundPointer((Object*)((u_long) offset), name, -1, TRUE);
  129.         else
  130.         FoundPointer((Object*)((u_long) inObject + (u_long) offset), name, -1, FALSE);
  131.     }
  132.     }
  133. }
  134.  
  135. void AccessObjPtrs::FoundPointer(Object*, char*, int, bool)
  136. {
  137. }
  138.  
  139.